home *** CD-ROM | disk | FTP | other *** search
/ NASA Climatology Interdisciplinary Data Collection / NASA Climatology Interdisciplinary Data Collection - Disc 4.iso / software / grads / lib / stack.gs < prev    next >
Text File  |  1998-04-23  |  431b  |  33 lines
  1.  
  2. *  accept user input until flush, then issue all commands
  3. *  and wait for prompt.
  4.  
  5. i = 0
  6. say "Enter commands, then flush: "
  7. while (1)
  8.   i = i + 1
  9.   say "Next Command:"
  10.   pull cmd.i
  11.   if (cmd.i = 'flush')
  12.     break
  13.   endif
  14. endwhile
  15. if (i=1)
  16.   return
  17. endif
  18. 'clear'
  19. j = 1
  20. while (j<i)
  21.   cmd.j
  22.   res.j = result
  23.   j = j + 1
  24. endwhile
  25. pull dummy
  26. 'clear'
  27. j = 1
  28. while (j<i)
  29.   say res.j
  30.   j = j + 1
  31. endwhile
  32.  
  33.